/* GUI CONVERTED from rcrqinit.p (converter v1.75) Sat Aug 12 23:00:29 2000 */
/* rcrqinit.p - Release Management Customer Schedules                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*V8:ConvertMode=Maintenance                                            */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 8.6    LAST MODIFIED: 09/20/96           BY: TSI *K005*    */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98           BY: *K1Q4* Alfred Tan */
/* REVISION: 8.6E   LAST MODIFIED: 01/10/2000         BY: *J3NH* Ashwini G  */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00           BY: *N0KP* myb        */


         /* INITIALIZES AN REQUIREMENT DETAIL FROM ANOTHER */


/*J3NH*/ /* REPLACE THE LOGIC OF COPYING THROUGH 'NULL' STREAM BY */
/*J3NH*/ /* BUFFER-COPY STATEMENT                                 */

          /* INPUT PARAMETERS */
          define input parameter rqmdet_recid as recid no-undo.
          define input parameter schddet_recid as recid no-undo.

         /* STREAMS */
/*J3NH**  define stream nullout.             */
/*J3NH*/  define buffer b_rqm_det for rqm_det .


/*J3NH**  find rqm_det                        */
/*J3NH**  where recid(rqm_det) = rqmdet_recid */
/*J3NH**  no-lock.                            */

/*J3NH*/ for first b_rqm_det
/*J3NH*/    where recid(b_rqm_det) = rqmdet_recid no-lock:
/*J3NH*/ end.


         find schd_det
            where recid(schd_det) = schddet_recid
            no-lock.

/*J3NH** BEGIN DELETE **
 *        {mfoutnul.i &stream_name=nullout}
 *         display stream nullout
 *            rqm_det.
 *
 *         display stream nullout
 *            schd_type @ rqm_type
 *            schd_rlse_id @ rqm_rlse_id
 *            schd_date @ rqm_date
 *            schd_time @ rqm_time
 *            schd_interval @ rqm_interval
 *            schd_reference @ rqm_reference.
 *
 *         create rqm_det.
 *         assign rqm_det.
 *J3NH** END DELETE **/

/*J3NH*/ create rqm_det .
/*J3NH*/ buffer-copy b_rqm_det to rqm_det
/*J3NH*/ assign rqm_det.rqm_type      = schd_type
/*J3NH*/        rqm_det.rqm_rlse_id   = schd_rlse_id
/*J3NH*/        rqm_det.rqm_date      = schd_date
/*J3NH*/        rqm_det.rqm_time      = schd_time
/*J3NH*/        rqm_det.rqm_interval  = schd_interval
/*J3NH*/        rqm_det.rqm_reference = schd_reference .

         if recid(rqm_det) = -1 then.

/*J3NH**  output stream nullout close.  */
